Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/dbtable.dxr/00014_Platform, File io.ls

Text File | 2000-01-18 | 1.4 KB | 73 lines

global gDBTableVarList

on LinkCast
  MyObj = getaProp(gDBTableVarList, GetObjProp())
  LibraryName = GetLibraryName(MyObj)
  FolderPath = getTableFolder()
  PathList = duplicate(the searchPath)
  PathList = LinearListAddifNew(PathList, the moviePath)
  PrevPathandName = castLib("tabled.cst").fileName
  repeat with rc in PathList
    if FileExists(rc & FolderPath & LibraryName) = 0 then
      castLib("tabled.cst").fileName = rc & FolderPath & LibraryName
      exit repeat
    end if
  end repeat
end

on GetCastPathList
  if count(the searchPath) = 0 then
    xPath = [the moviePath]
  else
    xPath = the searchPath
  end if
  return xPath
end

on getTableFolder
  if the machineType = 256 then
    xFolder = "tblcast\"
  else
    xFolder = "tblcast:"
  end if
  return xFolder
end

on GetTextExtension
  if the machineType = 256 then
    Extension = ".wri"
  else
    Extension = EMPTY
  end if
  return Extension
end

on GetSavePathandName xName
  unLoad()
  FileioObj = new(xtra("fileio"))
  if not objectp(FileioObj) then
    beep()
  else
    pathAndName = displaySave(FileioObj, "Where would you like to save?", xName)
    FileioObj = 0
    return pathAndName
  end if
end

on IsKeyBoardEquivalentDown
  if the machineType = 256 then
    return the controlDown
  else
    return the commandDown
  end if
end

on GetTextFilePath
  if the machineType = 256 then
    xPath = the pathName & "tbldata\"
  else
    xPath = the pathName & "tbldata:"
  end if
  return xPath
end